a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR BBBBBBBB IIII11 TITTTTITTITT 000000 PPPPPPPP 
FFFFFFFFFF 000000 RRRRRRRR BBBBBBBB IIII11 TITTTTTTTT 000000 PPPPPPPP 
FF 00 OO RR RR 6B BB II TT 00 00 PP 

FF 00 0O RR RR B Il TT 00 0O PP 

FF 00 OO RR RR 6B BB Il TT 00 00 PP 

FF 00 0O RR RR BB BB II TT 00 00 PP PP 
FFFFFFFF 00 ON RRRRRRRR BBBBBBBB II TT 00 00 PPPPPPPP 
FFFFFFFF 00 00 RRRRRRRR BBBBBBBB II TT 00 00 PPPPPPPP 
FF 00 OO RR RR BB BB II TT 00 00 PP 

FF 00 OO RR RR BB BB II TT 00 00 PP 

FF 00 00 RR RR B I] TT 00 0O PP 

FF 00 00 RR RR BB BB II TT 00 00 PP 

FF 000000 RR RR 88888888 IIII11 TT 000000 PP 

FF 000000 RR RR BB8BBBBBB II1I11 TT 000000 PP 

LL I11111 SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLL I1III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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IONS ; Detailed Current Edit History 
ITS = Move bit field to bit field (word) 

ITS = Move bit field to bit field (longword) 

TS = Extract bit field (wor 

TS = Extract bit field (longword) 

FIC = Circular shift of low-order bits (word) 
FIC = Circular shift of low-order bits (longword) 
ST = Test single bit (word) 

ST = Test single bit hw, medi 

ET = Set single bit (word 

ET = Set stngte bit (lLongword) 

LR = Clear single bit (wor 

LR = Clear single bit (longword) 
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FORSBITOPS : MIL-STD 1753 bit operations 15-SEP-1984 2:49:14 VAX/VMS Macro V04-00 Page 
1-002 Fant att 7 Ty YPORRTL. SRCJFORBITOPS.MAR;1 ° 
-TITLE eeenes yore : MIL-STD 1753 bit t opers ations 
~IDENT /1-002/ 3; File: FORBITOPS Edit: JAW1002 


MARRBARARASARALAAAE LALA RERARAAAR RR RARRRRRRRARA RR SERS RR RARER RARER RASA SARS AS AS OD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH I 
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PRR RRRSRASLASESLALSALASASESEE ER EASE RR ER ERE R SRSA RRR RRR RRS R RRR RRR RRR ARR R ADS DS 


fACILITY: Fortran Support Library - user callable 


ABSTRACT: 
This module contains routines for operations on individual 
bits of arguments. 


VERSION: 1 
HISTORY: 


AUTHOR: 
John A. Wheeler, S5-Jun-1981: Version 1 


MODIFIED BY: 
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0 deraited current Edit Histor “e-seploee fOsse:01 


9 -SBTTL HISTORY ; Detail 


: Edit History for Version 1 of FORSBITOPS 


1-001 = Original. JAW 05-Jun-1981 
¢ > 1-002 - snceraret ¢¢ count modulo Length in FOR$I 
of 3 AW 08-Jun-19 


AX/VMS Macro V04-00 
FORRTL.SRCJFORBITOPS.MAR; * 


ed Current Edit History 


ISHFTC and FORSJISHFTC. 
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FORSBITOPS >; MIL=STD 1753 bit operations 15-SEP-1984 23:49:14 VAX/VMS M v04-00 Pp 
bes BECLARATIONS , aS er ISRS FBeaiby ERBANTS Rese oNe Toes mans MO! cd, 
59 .SBTTL DECLARATIONS 
61; 
6¢ ; INCLUDE FILES: 
64 : NONE 
0 65 ; 
i 66 ; EXTERNAL SYMBOLS: 
68 : NONE 
00 e3 3 
9000 20 ; MACROS: 
00 72: NONE 
0000 4 3 
9000 ts ; PSECT DECLARATIONS: 
oon 3 id: < .PSECT _FORSCODE PIC, SHR, LONG, EXE, NOWRT 
000 78 : EQUATED SYMBOLS: 
0000 «79: 
0000 +«=s«BO :: NONE 
0000 «=«B1: 
0000 Hf ; OWN STORAGE: 
0000 83 ; 
0000 «Ba: NONE 
0000 «=«s«8S : 


-—— 
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FORSBITOPS L-STD 1753 bit operations 15=SEP-1 :49:14 VAX/VMS Macro V04-00 Page 
pe borst IMVBITS = Move st field to bit fiel 6-SEF-1 7 3 7:54:01 FORRTL.SRCJFORBITOPS.MAR; 1 ° 
ope ? -SBTTL FORSIMVBITS = Move bit field to bit field (word) 
000 8 p++ 
st 4 3; FUNCTIONAL DESCRIPTION: 
$60 35 3 a routine moves a bit field contained in the first argument 
000 9s 3 a bit field contained in the fourth argument. FORSIMVBITS 
bod 94; ow * ORSUMVBITS implement the Fortran MIL=STD 1753 subroutine 
0v0 95; MVBITS. 
a4 96 ; 
44 4 : CALLING SEQUENCE: 
0000 190 3 CALL FORSIMVBITS(M1.rw.r, POS1.rw.r, LEN. rw.r, M2.ww.r, POS2.rw.r) 
0000 101 ; FORMAL PARAMETERS: 
0000 19 3 
00000004 0000 10 mi = 4 ; Address of source word 
00000008 0000 104 os1 = 8 ; Address of bit position in source 
0000000C 0000 105 en = 12 ; Address of field length 
00000010 0000 106 m = 16 ; Address of destination word 
00000014 B50 4 pos2 = 20 ; Address of bit position in destination 
0000 109 ; IMPLICIT INPUTS: 
0000 110; 
0000 111; NONE 
0000 We 3 
0000 113 ; IMPLICIT OUTPUTS: 
0000 114; 
0000 115; NONE 
0000 116; 
0000 117 ; COMPLETION STATUS: 
0000 118; 
0000 119; NONE 
0000 120; 
0000 121 ; SIDE EFFECTS: 
0000 1 § § 
0000 123; NONE 
0000 Ist 3 
0000 125 ;-=- 
0000 166 
0004 0000 12 ENTRY FORSIMVBITS, “M<R2> ; Entry mask 
50 08 BC C 0002 128 MOVZWL @posl (AP), ; RO = peurce bit position 
51 OC BC C 0006 129 MOVZWL @len(AP), R1 ; RI = engt th 
S214 eC C 000A 130 MOV2WL apos2 (AP) . R2 ; R2 = - ination bit position 
50 04 ec 51 EF O0E 131 RO, » ami<AP), RO ; Extract desired bit 
10 BC 1 S52 50 FO 0014 1 4 INSV RO, » Ri, a@m2 (AP) ; Store in be ole foo, 
04 OO1A 13 ; Return to caller. 
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FORSBITOPS L-STD 1753 bit operations 15-SEP-1984 2:49:14 VAX/VMS Macro V04-00 Pa 
obOe Fond meee ems PRET eE OOS ie tet Sekepeione TBrderot FPBANTE caesPoNBI Tops man:1 2% cB 
1B «135 -SBTTL FORSJMVBITS - Move bit field to bit field (longword) 
HS 
O18 8 : FUNCTIONAL DESCRIPTION: 
018 140 : og routine moves a bit field contained in the Wipes  eegeent 
018 141 : a bit field contained in the fourth argument. MVBITS 
018 16 ; and" FORSINVELTS implement the Fortran MIL-STD Foss! pin ane 9 LL 
oi) Ran 
a8 145 > CALLING SEQUENCE: 
O01 149 ; CALL FORSJMVBITS(M1.rl.r, POSI.rl.r, LEN.rl.r, M2.wl.r, POS2.rl.r) 
0018 149 ; FORMAL PARAMETERS: 
00000006 0018 151° m1 = 4 ; Address of source longword 
90000008 0918 152 ot sf S Address of bit position ta source 
0000000C 001B 15 en = 12 ; Address of field Length 
00000010 Q01B 154 me = 16 ; Address of destination longword 
00000014 Bete 132 pos2 = 20 ; Address of bit position in destination 
0018 139 : IMPLICIT INPUTS: 
001B 158; 
Bi gt ee 
0018 161 ; IMPLICIT OUTPUTS: 
0018 106 : 
HUES Bao 
0018 165 : COMPLETION STATUS: 
001B 166; 
RS oe 
0018 169 : SIDE EFFECTS: 
0018 170; 
0018 171 3 NONE 
0018 Ze 3 
Sa a 
0000 $018 175 ENTRY Fons ayetTs “M<> : Entry mask 
50 0c BC DO 0010 178 MOVL a@len(AP) RO = length 
51 048C 50 O08 BC EF 0021 17 EXTZV apos! (AP) RRO. am1(AP), Rl: Extract desired bits. 
106c 50 1468C 51 £0 bese 178 INSV apos2(AP), RO, am2(AP) ; Store in destination. 
04 O02F 17 ET ; Return to caller. 
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For IIBITS = Extract bit field (word) 6-SEP-1984 10:54:01 FORRTL. SRC Cir ORBITOPS.MAR;1 (6) 
} 1 .SBTTL FORSIIBITS = Extract bit field (word) 
0 1 : p++ 
0 ! ¢ ; FUNCTIONAL DESCRIPTION: 
09 1 $ : This ym he Ptah S 3}, and returns a bit field contained in the 
0 1 : first arguaent FORSIIBITS and FORSJIBITS implement the Fortran 
3 133 3 MIL=STD function IBITS. 
8 139 3 CALLING SEQUENCE: 
8 8 136 : result.ww.v = FORSIIBITS(M.rw.r, POS.rw.r, LEN. rw.r) 
0030 194 ; FORMAL PARAMETERS: 
0030 195; 
00000004 0030 196 m = 4 ; Address of source word 
00000008 88 Q0 197 os z= ; Address of bit position in source 
0000000C¢ 83 1S en = 12 ; Address of field Length 
0030 200 ; IMPLICIT INPUTS: 
0030 01; 
0030 og 3 : NONE 
0030 03 ; 
B33 04 ; IMPLICIT OUTPUTS: 
003 05 ; 
0030 o¢ i r NONE 
0030 20 : 
0030 $o8 3 ; ROUTINE VALUE: 
0030 09 : Shy . , F : 
Bah 19 3 : The specified bit field is returned in RO. 
0030 \¢ 3 ; SIDE EFFECTS: 
0030 1 : 
Bae 14 : NONE 
0030 ‘7 3 
0030 216 ;-- 
0030 17 
0000 0030 18 -ENTRY FORSIIBITS, “M<> 3 Entry mask 
5 08 BC 4 63C «(0032 19 MOVZWL . os(AP), RO : RO = source bit position 
50 04 BC OC BC 50 EF 0036 220 pricy » alen(aP), am(AP), RO: RO = m<pos, len> 
04 003D 221 RET ;’Return to caller. 
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xtract bit field (longword 6-SEP-19 2:54:01 EFORRTL. SREIFO ORBITOPS.MAR; 1 (7). 


-SBTTL FORSJIBITS = Extract bit field (longword) 


—_s) 
ow 


SHE WWNAAAA AAW WW AAA AAA AAAI AAA AA AAAI 
OCODOOMMMM MMMM MMMM MMMMMMMMMMMMmmMmMmMmmMmmMmhmmmmmmmmnmh  —— 


;++ 
; FUNCTIONAL DESCRIPTION: 


rns ab 


This function extracts turns it f 
nd FORSIIBITS 


and re 
first srouaent FORSJI visits ® 


; “< tate contained in the 
; MIL=STD function S. 


mplement the Fortran 
; CALLING SEQUENCE: 

result.wl.v = FORSJIBITS(M.rl.r, POS.rl.r, LEN.rl.r) 
; FORMAL PARAMETERS: 


00000004 m = 4 ; Address of source longword | 
00000008 os = 8 ; Address of bit position in source | 
0000000C en = 12 ; Address of field length 
IMPLICIT INPUTS: | 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 

The specified bit field is returned in RO. 
SIDE EFFECTS: 

NONE 


BITS entry mask 
P), 


.ENTRY FORSJI : ; 
EXTZV apos(A StentaP), am(AP), 
3 gor? = m<pos, len> 


RET ; Return to caller. 


0000 
50 0468C Oc BC O8 BC EF 
04 
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Num 


> ROUTINE VALUE: 


G 6 
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et ions LISHFTC - ‘loeale shift of low-orde ant et 9 8: 7:54:01 FORRTL.SRCIJFORBITOPS.MAR; 1 . B) 
rh $3 ~SBTTL FORSIISHFTC = Circular shift of low-order bits (word) 
23 569 4s 
rh 4 rt: 3; FUNCTIONAL DESCRIPTION: 
848 % : This function returns the first orgunent after shifting the low- 
88 71; order len bits by cnt gsi sions ORSIISHFTC and FORSJISHFTC 
49 ie : implement the Fortran MIL-STD 1753 function ISHFTC. The count 
049 73 ; is taken modulo length if icnt! > Len. 
BS Br 
043 26 ; CALLING SEQUENCE: 
Bnee 4 : result.ww.v = FORSIISHFTC(M.rw.r, CNT.rw.r, LEN. ewer) 
0049 80 : FORMAL PARAMETERS: | 
00000004 0049 Ht F m =4 ; Address of source word 
00000008 0049 8 cnt = 8 ; Address of shift count 
0000000C Bnee Spe len = 12 ; Address of field length 
9h ses ; IMPLICIT INPUTS: 
$069 389 _— 
ne 4 ; IMPLICIT OUTPUTS: 
0049 38 NONE 
0049 9 
0049 598 
0049 296 The first argument with its low-order len bits shifted by cnt 
Boe8 44 positions is returned in RO. 
Onee + ; SIDE EFFECTS: 
0049 301 NONE 
0049 8 
nt a 
001C 0049 305 ENTRY FORE) SHE TC. “M<R2, R3, R4> ; Entry mask 
50 04 BC HS 0048 306 MOVZWL a@m(AP), RO : RO = word containing field 
51 OC BC C Q04F 307 MOVZWL a@len(AP), R1 : R1 = field Length 
52 08 BC 32 Bees 308 CVTWL 4 acnt(AP), R2 : R2 = shift count 
E 11 Oaeo $10 BRB COMM1 ; Join common code. 
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ao 
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rcular shift of low-orde 6-SEP-1984 :54:01 CFORRTL.SRCJFORBITOPS.MAR;1 


-SBTTL FORSJISHFTC = Circular shift of low-order bits (lLongword) 


p++ 

; FUNCTIONAL DESCRIPTION: 

: This function returns the first argument after shifting the low- 

: order len bits by cnt positions ORSJISHFTC and FORSIISHFTC 

$ implement the Fortran MIL-STD 1753 function ISHFTC. The count 

; is taken modulo Length if icnti > Len. 

: CALLING SEQUENCE: 

: result.wl.v = FORSJISHFTC(M.rl.r, CNT.rl.r, LEN.rl.r) 

: FORMAL PARAMETERS: 

; m 
cnt 
len 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


The first argument with its low-order len bits shifted by cnt 
positions is returned in RO. 


SIDE EFFECTS: 
NONE 


4 ; Address of source teen 
; Address of shift coun 
12 ; Address of field length 


Sete Se Se Se Ge Ge Se Ge Se Ge Ge Se Se St Fe Se Ge Ge 


eENTRY FORSJISHFTC, “M<R2, R3, R4> ; Entry mask ; 
MOVL am(AP), RO ; R lLongword containing field 


MOVL  alen(AP), R1 : R1 = field Length 
MOVL acnt (AP), R2 : R2 = shift count 
2@ 
: Enter here from FORSIISHFTC 
COMM1: BGEQ 108 : If ent < 0, 
ADDL R1, R2 ; add len to cnt. 
10$: CMPL R2, R1 ; Is 0 <= cnt <= len? 
BLEQU 308 : Branch if yes. 


Z¢ 


; Here if the count is (still) negative, or greater than len. Reduce it 
; to the range (0, len). 


, MOVL R2, R4 : RG = tmp = cnt 
BGEQ § © 208 : If tmp < 0, 
SUBL Rie R4 : decrease it by len - 1 


DDPEDPQAED AED DD. Saas BB BB BB BE AANA ANIWAINIAIPPIPPIPPNPONPNIYD 2 PS OO OS OO 


INCL so division rounds downward. 


Num 
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FORSBITOPS L-STD 1753 bit operations 15-SEP-1984 23:49:14 VAX/VMS Macro V04-00 Page 10 — 
et borsuIsHr Te - clreulor shift of low-orde 6-SEP-1984 Tay FPORRTL. SR SRC Cir ORBITOPS.MAR;1 . (9) 
54 51 (6 0078 $9 20$: DIVL RI, R4 : R4 = tmp/Len | 
4 1 C4 QO7E 0 MULL R1, RG ; R4 = (tmp/len)*len 
$2. 54 «C2 4 ‘ SUBL R4, R2 ; R2 = cnt-(tmp/len)*len) 
0084 73 : The reduced count is now in R2. Do the actual shift by locating the 
0084 74 : boundery between the ‘‘high part’’ and the ‘‘low part’’ of the field, and 
bone 75 : _exchang ng the two parts. 
ae: oe es. $084 7 40s: SUBL3) R2, R1, R3 ; R3 = boundary position 
> me 99 EF 0088 EXTZ2V. #0. R3. RO, RI : Extract low-order part. | 
—. =: 3 5 EF 008D 79 EXTZV R3, R2, RO, RS ; Extract high-order part. 
ah ae) | 51 FO 0096 80 INSV R1, R2, R3, RO > Make low-order part high. 
in oe 54 FO 009 81 INSV R4, #0, R2, RO ; Make 44 “order part low. 
04 009C 382 RET ; Return to caller. 


FORSBITOPS ; MIL-STD 1753 bit operation fs SEP=1984 4 VAX/VMS Macro v04-00 Page 11 
het ionsbitESt - Test single bite (word) “-SEP-1 1382 18i$0 Of FORRTL.SRCJFORBITOPS.MAR; 1 ° (10) 
he : -SBTTL FORSBITEST = Test single bit (word) 
9D § p++ 
30 3 FUNCTIONAL DESCRIPTION: 
9D : ; This function requrns . TRUE. if the spesitied bit in the first 
9D 0; argument is 1 and .FALSE. if it i$ 0. FORSBITEST and FORSBUTEST 
44 4 $ implement the Fortran MIL=STD 175 function BTEST. 
44 $8 3; CALLING SEQUENCE: 
B88 2 3 result.ww.v = FORSBITEST(M.rw.r, POS.rw.r) 
0090 39 ; FORMAL PARAMETERS: 
009D 98 ; 
00000004 944 99 m = 4 ; Address of source word 
00000008 944 rth pos = 8 3; Address of bit position 
009D one ; IMPLICIT INPUTS: 
009D 403 ; 
009D 404; NONE 
009D 405 ; 
0090 406 ; IMPLICIT OUTPUTS: 
009D 407; 
009D 408 ; NONE 
009D 409 ; 
009D 410 ; ROUTINE VALUE: 
009D 411; 
0090 tig : » TRUE. or .FALSE. 
009D 413; 
009D 414 ; SIDE EFFECTS: 
009D 415; 
0090 416; NONE 
009D 417; 
009D 418 ;-- 
009D 419 
0000 009D 420 -ENTRY FORSBITEST, “M<> ; Entry mask 
0 08 BC 3C OO9F 421 MOVZWL a@pos(AP), RO ; RO = source bit position 
50 04 BC 01 50 EE OOA3 422 EXTV RO, #1, a@m(AP), RO ; RO = SEXT(specified bit) 
04 OOA9 423 RET : Return to caller. 
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tor JTEST = Test single bit (longword) -SEP-1984 754:01 FORRTL.SRCJFORBITOPS.MAR; 1 (11) 


-SBTTL FORSBJTEST = Test single bit (longword) 


FORSBITOPS 
1008 


p++ 

; FUNCTIONAL DESCRIPTION: 

This function rrr se e speg itt 
-S 


th 
argument is 1 and .FALSE ig 0 
753 function 


implement the iereten MIL 
CALLING SEQUENCE: 

result.wl.v = FORSBJTEST(M.rl.r, POS.rl.r) 
FORMAL PARAMETERS: 


—-—ne 


0 
00000004 QOAA 


4 ; Address of source longword 
00000008 OO0AA 


8 ; Address of bit position 


m 

J pos 
; IMPLICIT INPUTS: 

; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; ROUTINE VALUE: 

; TRUE. or .FALSE. 
; SIDE EFFECTS: 

; NONE 


-ENTRY FORSBJTEST, “M<> 3; Entry mask 
EXTV @pos(AP), #1, am(AP), RO ; RO = SEXT(specified bit) 
RET ; Return to caller. 
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3:49:14 VAX/VMS Macro v04-00 
0:54:01 FORRTL. SR Cir ORBITOPS.MAR;1 


-SBTTL FORSIIBSET - Set single bit (word) 


rst og pee. with the specified bit 
SET implement the Fortran MIL-STD 


FORSIIBSET(M.rw.r, POS.rw.r) 


FORSBITOPS L-STD 1753 bit operations 
et ions iiaser - Set single bit (word) 
B4 46 
B4 ee 
0B4 $68 p++ 
0B4 $ 3; FUNCTIONAL DESCRIPTION: 
0B4 470; 
0B4 471; This function returns th 
0B4 tc8 ; set. FORS 
00B4 473: 1753 function IBSET. 
00B4 474 ; 
0084 475 ; CALLING SEQUENCE: 
0084 278 ; 
0B4 477; result.ww.v = 
0B4 478; 
0B4 479 ; FORMAL PARAMETERS: 
0B4 480; 
00000004 00B4 481 m = 4 
00000008 Bree rt pos = 8 
484 IMPLICIT INPUTS: 
485 
$56 NONE 
48 
488 IMPLICIT OUTPUTS: 
489 
490 NONE 


= 
~o 
— 

Bete Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Ge Ge 


re ROUTINE VALUE: 
494 

495 

496 ; SIDE EFFECTS: 
497 

498 NONE 
499 

500 ;-- 

501 

208 -ENTRY 
50 MOVZWL 
504 

505 SS 
506 10$: 

507 


FORSI1BSET, “M<> 
MOVZWL apos (AP) R1 
BB R {0s 


; Address of source word 
; Address of bit position 


The first argument with the specified bit set is returned in RO. 


Entry mask 

RO = word containing bit 
R1 = source bit position 
Set specified bit. 
Return to caller 
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mM 6 
FORSBITOPS ; MIL-STD 1753 bit operations ym SEP=- e=i8 4 :49:14 VAX/VMS Macro v04-00 P 14 FC 
et FORSJIBSET - Set single bit (longword) -SEP-19 44 7:54:01 FORRTL.SR CIF ORBSTOPS.MAR; 1 ving (13) 2: 
O9¢ 9 -SBTTL FORSJIBSET - Set single bit (longword) 
C 11 54+ 
O0¢ \¢ i 3 FUNCTIONAL DESCRIPTION: 
OC 14 This function returns the first argument with the specified bit 
00C 15 : set FORSJIBSET and FORSIIBSET implement the Fortran MIL=STD 
boc 316 ; 1753 function IBSET. 
boc 18 : CALLING SEQUENCE: 
9o¢ > 0; : result.wl.v = FORSJIBSET(M.rl.r, POS.rl.r) 
99¢ > g : FORMAL PARAMETERS: 
00000004 00C 524 : m = 4 ; Address of source longword 
00000008 Boe 2 2 pos = 8 ; Address of bit position 
00¢3 527 ; IMPLICIT INPUTS: | 
00Cc 2e0 3 
00C3 529 ; NONE 
00c3 530; 
00Cc3s 531 ; IMPLICIT OUTPUTS: 
00c3 236 3 
00c3 533; NONE 
00c3 «534; 
00c3 535 ; ROUTINE VALUE: 
00C3 «536; 
Opes 23¢ 3 The first argument with the specified bit set is returned in RO. 
Me 539 : SIDE EFFECTS: | 
00c3 540 ; 
00c3 541 ; NONE 
00C¢3 245 3 
BCs 543 ;-- 
00C 544 
0000 O00C3 545 -ENTRY FORSJIBSET, “M<> ; Entry mask 
50 04 8C DO O0CS 546 MOVL am(AP), RO ; RO = Lenguerd & Eyntetntag bit 
00 50 08 BC €E2 O0C9 547 BBSS a@pos(AP), RO, 10$ ; Set specified bit 
04 483 278 10$: RET ; Return to caller 
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OOO O0000 09 09000909 09 09 08 SI SI NSN SSP AAA AAO AA SMITA oO 
WR O OONAUE WN OC ODA UE WN 0 ODA UE A OOONOUS WN 


] 
Fors R ear single bit (word) -SEP-19 


p++ 
3; FUNCTIONAL DESCRIPTION: 
This function returns the firs 
cleared. FORSIIBCLR and FORSJ 
MIL-STD 1755 function IBCLR. 
CALLING SEQUENCE: 
result.ww.v = 
FORMAL PARAMETERS: 


4 
8 


m 
pos 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


SIDE EFFECTS: 
NONE 


“M<> 
R1 


fos 


Fons 178cL 8. 
MOVZWL @m(AP), RO 
apos Ab) 


— 
Oo 
ad 
or 

@ 
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DOOCOOOOOOOOSOOSOOOSOSOSOSOSOOSOOSOSOSOOOSOOOOOOOOOOSOSOOO =~! 
OOOO OCOCOSOOSCOOOSOSOSSOSSOSOSSOSOSSOSOSOSOSOSOSOOSOSOSOSOOOOSOOOSOSSoOO aM 
VIVIVIIANAAAAHAAAAAAHHAHAHAAAAAAAAAAAAAAAAAAOO|AQMO|AO Of 
DUP IVIVIVLVIVIVIV IV IV IV SIUSUSUSV SUSU OSUSVSVS VOSS USSU TS UOS US OOS VOSS VOSS SISOS IOS ISIS 
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249:14 
754:01 


-SBTTL FORSIIBCLR = Clear single bit (word) 


Pete Be Se Se 


AX/VMS Macro V04-00 
FORRTL.S RCIF ORBITOPS.MAR: 1 


erguaent with the specified bit 
implement the Fortran 


FORSIIBCLR(M.rw.r, POS.rw.r) 


; Address of source word 


Address of bit position 


ihe first argument with the specified bit cleared is returned in 


Entry mask 

RO = word sor, bit 
R1 = source bit tion 
Clear specified bit. 


Return to caller 
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8 7 
FORSBITOPS L=STD 1753 bit operati 5“SEP=1984 23:49:14 VAX/VMS Ma 
1008 Rngte bit Be fo: eS 


v04-00 
ion STBCLR - Clear single bit (longword) Br8Ep=1 $84 7:54:01 CFORRTL.SRC CIF ORBITOPS.MAR; 1 
95 ~SBTTL FORSJIBCLR = Clear single bit (longword) 


pee 

; FUNCTIONAL DESCRIPTION: 
This cence ies returns the firs or gurent with the specified bit 
cleared. FORSJIBCLR and FORS$I ipe implement the Fortran 
MIL=-STD 1753 function IBCLR. 

CALLING SEQUENCE: 
result.wl.v = FORSJIBCLR(M.rl.r, POS.rl.r) 

FORMAL PARAMETERS: 


m 
pos 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


00000004 


4 ; Address of source longword 
00000008 8 


8 ; Address of bit position 


pos AADAAAA ADA AA LAD ESS 
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NAUES AN 9 ODNAU EWN O OO NAME WN OOONOAUE WIN OOONO 
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OOOO OCOCOCGOOCCOOCSOSOOCOCSOSOOSOOCCOOCOCOOOCOOOOOOOOOOOOoO 
PAEAEAAAAAAAAAAAAAAAAA AAA AAA AAAS AAAAOAAOAO AIIM 


0 
0 
0 
0 
0 
0 
0 
8 : ROUTINE VALUE: 
> une first argument with the specified bit cleared is returned in 
00D 7 
0 . SIDE EFFECTS: 
0 D NONE 
D 
sit == 
0000 8 D ENTRY rons, foci e. “M<> 3 Entry mask 
50 04 BC 00 E MOVL am(AP) ; RO = Longword containing bit 
00 50 08 BC €5 OOE BBCC @pos(AP), RO, 10$ 3 Clear specified bit. 
04 8 : 10$: RET ; Return to caller 
OOE END ; End of module FORSBITOPS 
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C 
FORSBITOPS ; MIL-STD 1753 bit cperations oes tabs 9 $382: hF pales Macro v04-00 ag 
6-SEP=1984 10:54:01 


- Page 17. 
Symbol table FORRTL.SRCJFORBITOPS.MAR; 1 (15) 


444 934 4Y 2D 
DDBDDDDDDwDAADADD 
DOAQDAAAAAAGACGACG 
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geeceecceeccceces 


PSECT name Allocation PSECT No. Attributes 
OS 00000000 < 0.) OO ¢ OO.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE QOOOOOEA ¢ 234.) O1C¢ 1.) PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 


Gececeenoeesooecessooscoes 


Phase Page faults CPU Time Elapsed Time 
Initialization $0 00:00:00.74 
Command processing 136 00:04, 


ass 1 

Symboi table sort 

Pass 2 109 
Symbol table output 3 
Psect synopsis output 
Cross-reference output 

Assembler run totals 36 
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ine working set Limit was 1050 pages. 

8031 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 

ipere were 10 pages of symbol table space a \ecetee to hold 21 non-local and 7 local symbols. 
YY source Lines were read in Pass 1, produc ing 43 object records in Pass 2. 

pages of virtual memory were used to define 0 macros. 


dD 7 
FORSS) TOP ors Ah EET Ig ; MIL-STD 1753 bit operations _ =$6P =138¢ 7: $7: ht palyos cro V04-00 Page 1§, | 


FORRTL.S RCIF oR BITOPS.MAR; 1 (1 
Foe eeoceceeoeseceseece eeeceee + 
! ; Macro Library statistics ! 
Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 0 


0 GETS were required to define 0 macros. © 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS10ON/D1I SABLE=(GLOBAL ,, TRACEBACK) /LIS=LIS$:FORBITOPS/OBJ=OBJ$:FORBITOPS MSRC$:FORBITOPS/UPDATE=(ENH$:FORBI TOPS) 


PMENT CORPORATION 


AH-BT13A-SE 
ND PROPRIETARY 
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